home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Libris Britannia 4
/
science library(b).zip
/
science library(b)
/
PROGRAMM
/
PASCAL
/
1463.ZIP
/
DRAW-2D.ARC
/
WRTHDR.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1987-06-12
|
602b
|
29 lines
PROCEDURE WRTHDR;
VAR
K,I,F:INTEGER;
HEADING:TEXT;
HDRLINE:SCRLINE;
BEGIN
ASSIGN(HEADING,'DRAW2D.HDR');
{$I-}
RESET(HEADING);
{$I+}
K:=IORESULT;
F:=17;
IF K<>0 THEN
BEGIN
MOVCUR(10,18);
WRITE('<< File DRAW2D.HDR not found >>');
END
ELSE
BEGIN
FOR I:=1 TO F DO
BEGIN
READLN(HEADING,HDRLINE);
IF LENGTH(HDRLINE) > 79 THEN
HDRLINE := COPY(HDRLINE,1,79);
WRITELN(HDRLINE);
END;
END;
CLOSE(HEADING);
END;